home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PBLIB1 / PROGS / READSECT.PAS < prev    next >
Pascal/Delphi Source File  |  1994-05-03  |  893b  |  40 lines
  1. Program READSECT;
  2.  
  3. {$M 15000,0,655000}
  4.  
  5. uses DOS, PbCRT, PbMISC, PbHELP;
  6.  
  7. {
  8. Description:  READSECT - Simple Program to View text files
  9.  
  10. Author      : Howard Richoux
  11. Date        : 1/9/91
  12. Last revised: 2/21/94 minor fixes
  13. Application : IBM PC and compatibles, done in Turbo Pascal 7.0
  14. Status      : Placed in the Public Domain by HNR Software 1/29/94
  15. Published in: none
  16. }
  17.  
  18.  
  19.  
  20. var fname   : string[60];     { complete file name }
  21.     secttag : string[20];     { how the file is divided "?SECTION" ... }
  22.     cmd     : string[40];     { exit command }
  23.  
  24.  
  25. Procedure READSECTInit;
  26. var i : integer;
  27.     s : string;
  28.      begin
  29.      fname := 'test.txt';
  30.      secttag := '{section ';
  31.      if paramcount > 0 then fname := paramstr(1);
  32.      end;
  33.  
  34.  
  35.      begin {initialization}
  36.      SetColorScheme(0);
  37.      READSECTInit;
  38.      DoHelpFileView(fname,secttag,cmd);
  39.      end.
  40.